home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / TopazPatch.lha / topazpatch / Install < prev    next >
Encoding:
Text File  |  1998-02-06  |  2.6 KB  |  84 lines
  1. ; $VER: Install_TopazPatch 1.0 (9/2/1998)
  2. ;
  3. ; Install script for TopazPatch
  4. ;
  5. ; Distributed as a part of the TopazPatch archive.
  6. ; This script made from that in the original OneFont installer script.
  7. ; OneFont is Copyright (C) 1994 by Jan Skypala
  8. ; All righs reseredved
  9.  
  10. (set TopazPatch                  "TopazPatch")
  11. (set TopazPrefs                  "TopazPrefs")
  12.  
  13. (set #targetpchstr               "In which directory should TopazPatch be installed?")
  14. (set #targetprfstr               "In which directory should TopazPrefs be installed?")
  15.  
  16. (set #copying-TopazPatch            "Copying TopazPatch...")
  17. (set #copying-TopazPrefs            "Copying TopazPrefs...")
  18. (set #fixing-ss                  "Correcting User-Startup file...")
  19.  
  20. (set #targetpchsel          (cat "\nThis part of the installation will copy the patch program to the directory you choose.\n\n"
  21.                                  @askdir-help))
  22.  
  23. (set #targetprfsel          (cat "\nThis part of the installation will copy the prefs program to the directory you choose.\n\n"
  24.                                  @askdir-help))
  25.  
  26. (set #startup-help          (cat "If User-Startup file is changed TopazPatch will be started every "
  27.                                  "time you boot so all programs will use new font instead of topaz.\n\n"
  28.                                  "Two things will happen:\n\n"
  29.                                  "· The Installer will check if your startup-sequence\n"
  30.                                  "  executes the file S:User-Startup, and will modify\n"
  31.                                  "  it to do so, if necessary.\n\n"
  32.                                  "· The Installer will look through the S:User-Startup\n"
  33.                                  "  file and insert the correct TopazPrefs statements\n"
  34.                                  "  where appropriate.\n\n"
  35.                                  @startup-help))
  36.  
  37. (complete 0)
  38.  
  39. (set @targetpch-dir
  40.       (askdir
  41.              (prompt #targetpchstr)
  42.              (help #targetpchsel @askdir-help)
  43.              (default "C:")
  44.       )
  45. )
  46.  
  47. (copyfiles
  48.       (prompt @copying-TopazPatch)
  49.       (source TopazPatch)
  50.       (dest @targetpch-dir)
  51.       (infos)
  52.       (noposition)
  53. )
  54.  
  55. (complete 33)
  56.  
  57. (set @targetprf-dir
  58.       (askdir
  59.              (prompt #targetprfstr)
  60.              (help #targetprfsel @askdir-help)
  61.              (default "SYS:PREFS")
  62.       )
  63. )
  64.  
  65. (copyfiles
  66.       (prompt @copying-TopazPrefs)
  67.       (source TopazPrefs)
  68.       (dest @targetprf-dir)
  69.       (infos)
  70.       (noposition)
  71. )
  72.  
  73. (complete 66)
  74.  
  75. (startup
  76.       ("TopazPatch"
  77.       (prompt #fixing-ss)
  78.       (help #startup-help)
  79.       (command (tackon @targetpch-dir "TopazPatch >NIL:"))
  80.       )
  81. )
  82.  
  83. (complete 100)
  84.